home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / DA / P / Pica Calculator 2 / PC2 Folder / PC2 Sample Pgms / PC2 Sample Pgms.rsrc / pPGM_18478_Linear Regression < prev    next >
Encoding:
Text File  |  1993-07-16  |  1.0 KB  |  182 lines
  1. ! Linear Regression
  2. ! © 1993 by
  3. ! Jim Lewis
  4. ! 
  5. Z
  6. “
  7. #0
  8. ∞
  9. ◊MeanX
  10. r3
  11. /
  12. r0
  13. =
  14. ^
  15. ◊MeanY
  16. r1
  17. /
  18. r0
  19. =
  20. ^
  21. ◊DataEntry
  22. »Entry Loop
  23. ?Next X data? (0=END, -x=DEL)
  24. <
  25. GDelData
  26. ≈
  27. GEndData
  28. s6
  29. ∑3
  30. x
  31. ∑4
  32. r0
  33. ?Corresponding Y data?
  34. §6
  35. ∑1
  36. x
  37. ∑2
  38. #0
  39. ™6
  40. ∑5
  41. #1
  42. ∑0
  43. r0
  44. GEntry Loop
  45. »DelData
  46. ª
  47. s6
  48. –3
  49. x
  50. –4
  51. ?Corresponding -Y data?
  52. ª
  53. §6
  54. –1
  55. x
  56. –2
  57. #0
  58. ™6
  59. –5
  60. #1
  61. –0
  62. r0
  63. GEntry Loop
  64. »EndData
  65. r0
  66. ^
  67. !Compute Std.Dev
  68. ◊StdDevX
  69. ƒMeanX
  70. ∞
  71. r4
  72. GDoDeviation
  73. ^
  74. ◊StdDevY
  75. ƒMeanY
  76. ∞
  77. r2
  78. »DoDeviation
  79. -
  80. (
  81. r0
  82. *
  83. #0
  84. ∞
  85. x
  86. )
  87. =
  88. /
  89. r0
  90. =
  91. ^
  92. ◊Slope
  93. r5
  94. /
  95. r0
  96. -
  97. ƒMeanY
  98. *
  99. ƒMeanX
  100. =
  101. /
  102. ƒStdDevX
  103. =
  104. ^
  105. ◊yIntercept
  106. ƒSlope
  107. *
  108. ƒMeanX
  109. ±
  110. +
  111. ƒMeanY
  112. =
  113. ^
  114. ◊Findr
  115. ƒSlope
  116. x
  117. /
  118. ƒStdDevY
  119. *
  120. ƒStdDevX
  121. =
  122. ^
  123. ◊xEqualsy
  124. ?Enter X value:
  125. s7
  126. ƒSlope
  127. §7
  128. ƒyIntercept
  129. ∑7
  130. r7
  131. ^
  132. ◊yEqualsx
  133. ?Enter Y value:
  134. s7
  135. ƒyIntercept
  136. –7
  137. ƒSlope
  138. ÷7
  139. r7
  140. ^
  141. !Main Program
  142. #0
  143. ∞
  144. ƒDataEntry
  145. ≈
  146. GNoData
  147. ƒSlope
  148. @The slope is:
  149. ƒyIntercept
  150. @The y intercept is:
  151. ƒFindr
  152. √
  153. @Correlation factor:
  154. »MainLoop
  155. #1
  156. ∞
  157. ?(1=Find X, 2=Find Y, 0=END):
  158. ≈
  159. GdoFindx
  160. ∞
  161. #2
  162. ∞
  163. ≈
  164. GdoFindy
  165. ∞
  166. #0
  167. ∞
  168. ≈
  169. GNoData
  170. GMainLoop
  171. »doFindx
  172. ƒxEqualsy
  173. @Y intercept:
  174. GMainLoop
  175. »doFindy
  176. ƒyEqualsx
  177. @X intercept:
  178. GMainLoop
  179. »NoData
  180. “
  181. ~
  182.